unit JsonVO;

interface

uses DBXJSON;

type
  TJsonVO = class
  public
    function ToJSON: TJSONValue;
  end;

implementation

uses JsonUtils;

{ TJsonVO }

function TJsonVO.ToJSON: TJSONValue;
begin
  Result := ObjectToJSON(Self);
end;

end.
